home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Utilities Experience
/
The Utilities Experience - Volume 1.iso
/
software
/
graphics
/
n-z
/
raystorexa
/
arexx
/
im_texture.ray
< prev
next >
Wrap
Text File
|
1995-10-21
|
938b
|
51 lines
/***************
* NAME: im_texture.rexx
* VERSION: 1.0 04.05.1995
* DESCRIPTION: This ARexx-programm demonstrates imagine texture mapping
* AUTHORS: Andreas Heumann
* BUGS: none
* TO DO: none
* HISTORY:
* DATE NAME COMMENT
* 04.05.95 ah initial release
***************/
signal on error
options results
IF ~show('P','RAYSTORM') THEN DO
address COMMAND 'run >NIL: <NIL: /RayStorm'
address COMMAND WaitForPort RAYSTORM
END
address RAYSTORM
'TEXTUREPATH imagine:textures'
'SETSCREEN 100 100'
'SETCAMERA <0,0,-150> <0,0,0> <0,1,0> 45 45'
'SETWORLD [0,0,0] [100,100,100]'
'POINTLIGHT <100,100,-150>'
'NEWSURFACE MAP'
'IMTEXTURE frogskin.itx <0,0,0> <0,0,0> <32,32,32>'
'SPECULAR [0,0,0]'
'DIFFUSE [255,255,0]'
'PLANE MAP <0,0,0> <0,0,1>'
'STARTRENDER QUICK'
'SAVEPIC im_texture.iff'
'CLEANUP'
exit 0
error:
say "Error" rc "in line" sigl ":"
GETERRORSTR rc
say result
exit 0